home *** CD-ROM | disk | FTP | other *** search
/ C++ für Kids / C++ for kids.iso / Buch / Befund1.cpp < prev    next >
C/C++ Source or Header  |  1998-12-18  |  2KB  |  54 lines
  1. //---------------------------------------------------------------------------
  2. #include <vcl\vcl.h>
  3. #pragma hdrstop
  4.  
  5. #include "Befund1.h"
  6. //---------------------------------------------------------------------------
  7. #pragma resource "*.dfm"
  8.  
  9. const int Max = 10;
  10. TForm1 *Form1;
  11. String Diagnose[Max];
  12. int Nr;
  13.  
  14. //---------------------------------------------------------------------------
  15. __fastcall TForm1::TForm1(TComponent* Owner)
  16.     : TForm(Owner)
  17. {
  18. }
  19. //---------------------------------------------------------------------------
  20. void __fastcall TForm1::FormCreate(TObject *Sender)
  21. {
  22.   randomize ();
  23.   ScrollBar1->Min = 0;
  24.   ScrollBar1->Max = Max - 1;
  25.   Diagnose[0] = "Hm...";
  26.   Diagnose[1] = "Das ist ein Ding!";
  27.   Diagnose[2] = "Sieh mal an!";
  28.   Diagnose[3] = "Was soll ich sagen?";
  29.   Diagnose[4] = "TatsΣchlich?";
  30.   Diagnose[5] = "So geht es Dir also.";
  31.   Diagnose[6] = "Du hast Probleme.";
  32.   Diagnose[7] = "Das kann ich verstehen.";
  33.   Diagnose[8] = "Ich bin sprachlos.";
  34.   Diagnose[9] = "Naja...";
  35. }
  36. //---------------------------------------------------------------------------
  37. void __fastcall TForm1::Button1Click(TObject *Sender)
  38. {
  39.   Panel1->Caption = "";
  40.   Edit1->Text = "";
  41.   Edit1->SetFocus ();
  42. }
  43. //---------------------------------------------------------------------------
  44. void __fastcall TForm1::Button2Click(TObject *Sender)
  45. {
  46.   Nr = random (Max);
  47.   Panel1->Caption = Diagnose[Nr];
  48. }
  49. //---------------------------------------------------------------------------
  50. void __fastcall TForm1::ScrollBar1Change(TObject *Sender)
  51. {
  52.   Panel1->Caption = Diagnose[ScrollBar1->Position];    
  53. }
  54. //---------------------------------------------------------------------------